home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / videomgt.zip / ADDCUST.PRG < prev    next >
Text File  |  1991-11-23  |  1KB  |  38 lines
  1. && ADD RECORDS TO YCUSTM FILE ===> ADDCUST.PRG
  2. SET TALK OFF
  3. ANS=" "
  4. USE YCUSTM
  5. DO WHILE .T.
  6.    CLEAR
  7.    APPEND BLANK
  8.    @ 1,25 SAY "ADD RECORD IN YCUSTM FILE"
  9.    @ 2,5 TO 20,75
  10.    @ 3,10 SAY "CUSTOMER NO "  GET CUST_NO
  11.    @ 5,10 SAY "FIRST NAME  "  GET FIRST
  12.    @ 7,10 SAY "MIDDLE NAME "  GET MIDDLE
  13.    @ 9,10 SAY "LAST NAME   "  GET LAST
  14.    @ 11,10 SAY "ADDRESS     "  GET ADDRESS
  15.    @ 13,10 SAY "CITY        "  GET CITY
  16.    @ 13,45 SAY "STATE       "  GET STATE
  17.    @ 15,10 SAY "ZIP         "  GET ZIP
  18.    @ 15,45 SAY "PHONE       "  GET PHONE
  19.    @ 17,10 SAY "CHARGE      "  GET CHARGE
  20.    @ 17,45 SAY "RENTS NO    "  GET NO_RENTS FUNCTION "Z"
  21.    @ 19,45 SAY "RENT AMOUNT "  GET AMT_RENT FUNCTION "Z"
  22.    @ 24,19 SAY "PLEASE ENTER ALL THE FIELDS OF RECORD ADDED"
  23.    READ
  24.    ANOC=ANOC+1
  25.    CLEAR
  26.    @ 12,10 
  27.    WAIT "                      DO YOU WANT TO CONTINUE(Y/N)? " TO ANS
  28.    IF ANS $"Yy"
  29.       CLEAR
  30.       LOOP
  31.    ELSE
  32.       EXIT
  33.    ENDIF
  34. ENDDO
  35. CLEAR
  36. @10,36 SAY "W A I T"
  37. RETURN
  38.